home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / toolbook / penbook.zip / PENBOOK.TBK (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-11-17  |  23KB  |  304 lines
  1. mes New Roman
  2. dle, lastObj
  3.     --every 
  4. Ithe cursor 
  5. moved, need 
  6. reset 
  7.     --proper Pen Windows 
  8. curObject 
  9. objectFromPoint(
  10. NULL) 
  11. F--OR (
  12. " AND 
  13. FALSE
  14. lastCur 
  15. SetCursor(
  16. mouseEnter
  17. setbeam
  18. mouseLeave
  19. setbeam
  20. field
  21. SetCursor
  22. lastCur
  23. curObject
  24. BeamHandle
  25. lastObj
  26. mouseEnter
  27. field
  28. curObject
  29. mouseLeave
  30. System
  31. Times New Roman
  32. Times New Roman
  33. Arial
  34. Times New Roman
  35. Arial
  36. system
  37. fic code
  38. 4BeamHandle
  39.     linkDLL "user"
  40.         WORD LoadCursor(
  41. ,DWORD)
  42. SetCursor(
  43.     --load the "
  44. n cursor," which tells Pen Windows 
  45. treat 
  46.     --like a 
  47. w0,32513)
  48.     --translate message 
  49. mouse/
  50. m movement
  51.     translatewindowmessage 
  52. sysClientHandle
  53. setbeam
  54. , lastObj
  55.     --every 
  56. moved, need 
  57. reset 
  58.     --proper 
  59. curObject 
  60. objectFromPoint(
  61. NULL) 
  62. F--OR (
  63. " AND 
  64. FALSE
  65. lastCur 
  66. enterbook
  67. mouseEnter
  68. setbeam
  69. mouseLeave
  70. enterbook
  71. LoadCursor
  72. SetCursor
  73. LoadCursor
  74. setbeam
  75. BeamHandle
  76. setbeam
  77. field
  78. SetCursor
  79. lastCur
  80. curObject
  81. BeamHandle
  82. lastObj
  83. mouseEnter
  84. field
  85. curObject
  86. mouseLeave
  87. PenCommand
  88. PEN COMMAND AREA      by Paolo Tosolini, Italy
  89. Draw the following circled letters inside the  Pen Command Area to show :
  90. You can play a video file, show an image or a hidden text, just using gestures. 
  91. Pen Windows is required. Make sure that in the Pen Palette's Gesture Manager, the following circled letters are assigned in this way: 
  92.  square.
  93. =  Ctrl + 3
  94. file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way: 
  95. try the         or the     gestures, writing them inside the white square.
  96. Then, try to write the above gestures in this white field, sensitive to the pen.
  97. Palette the following circled letters are assigned in this way: 
  98. try the         or the     gestures, writing them inside the white square.
  99. =  Ctrl + 1
  100. file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way: 
  101. try the         or the     gestures, writing them inside the white square.
  102. =  Ctrl + 2
  103. file just using gestures. Make sure that in the Gesture Manager of Pen Palette the following circled letters are assigned in this way: 
  104. try the         or the     gestures, writing them inside the white square.
  105. txtScrolling
  106. I'd like to hear from you any suggestion about using Toolbook and Pen Windows. Write the circled C to get my address.
  107. ed letters are assigned in this way: 
  108. try the         or the     gestures, writing them inside the white square.
  109. PenImage
  110. :PHYSSIZE
  111. Bkey, isShift, isCtrl
  112.     -- Script that intercept the translated gesture 
  113. HPen Windows
  114. c"tbkmm.sbk")
  115. "Sorry, but Multimedia Toolbook 
  116. xinstalled 
  117. 4, " & \
  118.             "so I can 
  119. xplay 
  120. AVI file."
  121. filmName 
  122. "PENVIDEO.
  123. *"    -- 
  124. video 
  125. "PenCommand" 
  126. "Playing 
  127. $: " & CRLF & FilmName
  128. tbkMCI("close 
  129. ","")
  130. tbkMCIchk("
  131. " && 
  132. 6 && "alias aniFile style popup", "",1,1)
  133.         -- Place 
  134. ewhere we want 
  135.         -- This function 
  136. included 
  137. 1993 release 
  138. VideoWidgets 
  139.         -- 
  140. tbkMCIPositionWindow("
  141. ", "3880,3050" ,"")
  142. ","",1)
  143. wait","",1)
  144. ","")
  145. key = 
  146. ImageName 
  147. "PENIMAGE"
  148. "Showing 
  149. : " & 
  150. Lhidden 
  151. :" & 
  152. "TXTSCROLLING"
  153. Message 
  154. Paolo Tosolini - via Bembo, 5 - 34015 Muggia (TS) Italy
  155.         && "tel. +39-40-275030
  156. fax. +39-40-311850
  157. email: tosolini@psicosun.univ.trieste.
  158. 120        
  159. "txtScrolling"
  160. FirstLetter 
  161. Zi = 0
  162. keyUpp
  163. showFilm 
  164. :" & 
  165. ","")
  166. " && 
  167.  && "
  168. ", "4000,3050" ,"")
  169. ","",1)
  170. ","")
  171. keyUpp
  172. keyup
  173. showFilm
  174. keyup
  175. tbkmm.sbk
  176. Sorry, but Multimedia Toolbook is not installed in this system, 
  177. so I can not play any AVI file.
  178. PENVIDEO.AVI
  179. PenCommand
  180. Playing video: 
  181. FilmName
  182. close all
  183. tbkMCI
  184. FilmName
  185. alias aniFile style popup
  186. tbkMCIchk
  187. aniFile
  188. 3880,3050
  189. tbkMCIPositionWindow
  190. window aniFile state show
  191. tbkMCIchk
  192. play aniFile wait
  193. tbkMCIchk
  194. close aniFile
  195. tbkMCI
  196. PENIMAGE
  197. PenCommand
  198. Showing paintobject: 
  199. PenCommand
  200. Showing hidden field:
  201. TXTSCROLLING
  202.     >>  Paolo Tosolini - via Bembo, 5 - 34015 Muggia (TS) Italy  -  
  203. tel. +39-40-275030   fax. +39-40-311850   email: tosolini@psicosun.univ.trieste.it
  204. txtScrolling
  205. txtScrolling
  206. txtScrolling
  207. txtScrolling
  208. txtScrolling
  209. FirstLetter
  210. Message
  211. ImageName
  212. filmName
  213. isCtrl
  214. isShift
  215. keyUpp
  216. showFilm
  217. PenCommand
  218. Playing video :
  219. close all
  220. tbkMCI
  221. alias aniFile style popup
  222. tbkMCIchk
  223. aniFile
  224. 4000,3050
  225. tbkMCIPositionWindow
  226. window aniFile state show
  227. tbkMCIchk
  228. play aniFile wait
  229. tbkMCIchk
  230. close aniFile
  231. tbkMCI
  232. FilmName
  233. -- PENBOOK.TBK 
  234. HPaolo Tosolini, Italy
  235. -- email: tosolini@psicosun.univ.trieste.
  236. -- Special thanks 
  237. Galaxi Scientific Corporation, USA 
  238. which
  239. -- PENDEMO.
  240. I got the idea 
  241. create 
  242. pen-specific code
  243. 4BeamHandle
  244.     linkDLL "user"
  245.         WORD LoadCursor(
  246. ,DWORD)
  247. SetCursor(
  248.     --load 
  249. l cursor," 
  250.  tells Pen Windows 
  251. treat 
  252.     --like a 
  253. r0,32513)
  254.     --translate message 
  255. mouse/
  256. j movement
  257.     translatewindowmessage 
  258. sysClientHandle
  259. setbeam
  260. , lastObj
  261.     --every 
  262. moved, need 
  263. reset 
  264.     --proper 
  265. curObject 
  266. objectFromPoint(
  267. NULL) 
  268. F--OR (
  269. " AND 
  270. FALSE
  271. lastCur 
  272.     -- Set 
  273. onlyu 
  274. Command 
  275. terbook
  276. mouseEnter
  277. mouseLeave
  278. setbeam
  279. author
  280. enterbook
  281. reader
  282. enterbook
  283. sizetopage
  284. LoadCursor
  285. SetCursor
  286. LoadCursor
  287. setbeam
  288. BeamHandle
  289. setbeam
  290. field
  291. SetCursor
  292. lastCur
  293. curObject
  294. BeamHandle
  295. lastObj
  296. mouseEnter
  297. field
  298. curObject
  299. mouseLeave
  300. author
  301. sizetopage
  302. reader
  303. sizetopage
  304.